home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / dsp / dspgroup / macrosrc.arc / STOP.ASM < prev    next >
Encoding:
Assembly Source File  |  1983-11-17  |  922 b   |  34 lines
  1.  
  2. *STOP MACRO
  3. *      RETURNS FROM INTR, PROC OR FUNC
  4.  
  5.        COPY LDAX.SCR
  6.  
  7. STOP   $MACRO
  8.        $VAR P
  9.        $ASG '$$PROC' TO P.S
  10.        $IF  P.SV=0
  11.        RET               RETURN FROM A FUNC
  12.        $ENDIF
  13.        $IF  P.SV=1
  14.        LAR  AR0,:P.SS:$0 REST AR0
  15.        LAR  AR1,:P.SS:$1 REST AR1
  16.        LAC  :P.SS:$R,0   REST RETURN
  17.        PUSH              TO STACK
  18.        RET               RETURN FROM PROC
  19.        $ENDIF
  20.        $IF  P.SV=2
  21.        B    :P.SS:       SIM A RESET (FROM MAIN)
  22.        $ENDIF
  23.        $IF P.SV=3
  24.        LDPK 1            GET TO INTR PAGE
  25.        LAR  AR0,:P.SS:$0 REST AR0
  26.        LAR  AR1,:P.SS:$1 REST AR1
  27.        LAC  :P.SS:$R,0   LOAD RETURN
  28.        PUSH              PUSH TO STACK
  29.        LDAX :P.SS:$C     RELOAD AC
  30.        LST  :P.SS:$S     REST STATUS
  31.        EINT              ENABLE INTRPS
  32.        RET               RETURN FROM INTRPT
  33.        $ENDIF
  34.        $END